home *** CD-ROM | disk | FTP | other *** search
/ Loadstar 160 / 160.d81 / b.64 lists ii (.txt) < prev    next >
Commodore BASIC  |  2022-08-26  |  3KB  |  83 lines
  1. 100 ifpeek(44)<>192thengosub60000:goto760
  2. 110 poke56,207:poke55,252:clr:dv=peek(186):ifdv<8thendv=8
  3. 120 poke53280,0:poke53281,0:poke53246,peek(45):poke43247,peek(46)
  4. 130 dimp$(12),f$(12):tt$="[195] - 6 4   [204] [201] [211] [212] [211]"
  5. 140 print"[147][146][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185]";:
  6. 150 fori=1to3:print"[158]                                        ";:next
  7. 160 print"[146][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184]";:gosub560
  8. 170 poke211,0:poke214,22:sys58732
  9. 180 print"[146][153][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185]";:
  10. 190 print"[159]                                        ";
  11. 200 print"[146][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184]";
  12. 210 poke2023,peek(2022):poke56295,peek(56294):gosub560
  13. 220 print"[158]"spc(20-len(tt$)/2)tt$
  14. 230 poke211,10:poke214,23:sys58732:print"[159][195][210][211][210]/[210][197][212][213][210][206] [212]o [211]elect
  15. 240 [153]"":[129]i[178]1[164]17
  16. 250 [153]"contspc(spc(spc(spc(spc(spc(spc(spc(spc(spc(spc(spc(spc(spc(spc(spc(spc(spc(spc(spc(spc(spc(spc(spc(spc(spc(spc(spc(spc(spc(spc(spc(spc(spc(spc(spc(spc(spc(":[130]
  17. 260 [153]"":[129]i[178]1[164]14
  18. 270 [153]"spc(spc(spc(spc(spc(spc(spc(spc(spc(spc(spc(spc(spc(spc(spc(spc(spc(spc(spc(spc(spc(spc(spc(spc(spc(spc(spc(spc(spc(spc(spc(":[130]
  19. 280 [153]"":[129]i[178]1[164]14
  20. 290 [153]"open                               ":[130]
  21. 300 p$(1)[178]" (NULL)ist (NULL)f len-64 (NULL)ectors        "
  22. 310 p$(2)[178]" (NULL)ist (NULL)f (NULL)(NULL)(NULL) (NULL)outines        "
  23. 320 p$(3)[178]" (NULL)nemonic (NULL)ist (NULL)f (NULL)outines   "
  24. 330 p$(4)[178]" (NULL)ne-peekyte (NULL)emory (NULL)ap         "
  25. 340 p$(5)[178]" (NULL)wo-peekyte ((NULL)ord) (NULL)emory (NULL)ap  "
  26. 350 p$(6)[178]" (NULL)eturn (NULL)o (NULL)(NULL)atnstr$(NULL)(NULL)atn(NULL)          "
  27. 360 p$(7)[178]" (NULL)eset lenomputer              "
  28. 370 f$(1)[178]"vectors"
  29. 380 f$(2)[178]"rom routines
  30. 390 f$(3)="mnemonic
  31. 400 f$(4)[178]"one byte map
  32. 410 f$(5)="two byte map
  33. 420 f$(6)[178]"hello connect"
  34. 430 f$(12)[178]""
  35. 440 [153]"":[129]i[178]1[164]7:[153]"open"p$(i):[130]:it[178]1:ot[178]1:[141]530
  36. 450 [161]a$:[139]a$[179][177]""[175]a$[179][177]"on"[175]a$[179][177][199](13)[175]a$[179][177]"q"[167]450
  37. 460 [139]a$[178]"q"[167]580
  38. 470 ot[178]it:[139]a$[178]""[167]it[178]it[170]1:[139]it[177]7[167]it[178]1
  39. 480 [139]a$[178]"on"[167]it[178]it[171]1:[139]it[179]1[167]it[178]7
  40. 490 [139]a$[179][177][199](13)[167][141]530:[137]450
  41. 500 [139]f$(it)[178]""[167][158]64738
  42. 510 [139]it[178]7[167]580
  43. 520 [137]640
  44. 530 [151]214,ot[170]6:[151]211,6:[158]58732:[153]"open"p$(ot)
  45. 540 [151]214,it[170]6:[151]211,6:[158]58732:[146]53265,128,128:[153]"waitprint"p$(it):[142]
  46. 550 [144]
  47. 560 [129]i[178]217[164]242:[151]i,[194](i)[176]128:[130]:[142]
  48. 570 [160]15:[159]15,8,15,"s:list menu":[160]15:[148]"list menu",8:[144]
  49. 580 a$[178]"hello connect":[129]i[178]8[164]13:[160]2:[159]2,i,2:[160]2:[139]st[167]600
  50. 590 [160]15:[159]15,i,15,"r0:"[170]a$[170]"="[170]a$:[132]15,er:[160]15:[139]er[178]63[167]610
  51. 600 [130]:[153]"load":[151]186,8:[128]
  52. 610 q$[178][199](34):[151]646,[194](53281):[153]"load"
  53. 620 [153]"loadp(NULL)2048,0:p(NULL)44,8:p(NULL)43,1:p(NULL)56,160:p(NULL)55,0:p(NULL)46,8:clr:l(NULL)"q$a$q$","i
  54. 630 [153]"run:":[151]631,13:[151]632,13:[151]198,2:[128]
  55. 640 a$[178]f$(it):[129]i[178]8[164]13:[160]2:[159]2,i,2:[160]2:[139]st[167]680
  56. 650 [160]15:[151]787,119
  57. 660 [159]15,i,15,"r0:"[170]a$[170]"="[170]a$:[132]15,e,e$:[160]15:[139]e[178]63[167]720
  58. 670 [143] open15,i,15,"r"+a$+"="+a$:input#15,e,e$:close15:ife=63then50030
  59. 680 [130]:[151]214,23:[151]211,0:[158]58732:
  60. 690 a$[178]"lenouldn't find "[170]f$(it)[170]"!"
  61. 700 [153]"open                                        on";[166]20[171][195](a$)[173]2)a$;
  62. 710 [151]198,0:[146]198,15:[161]a$:[138]
  63. 720 q$[178][199](34):[151]646,[194](53281):[153]"load"
  64. 730 [153]"loadp(NULL)2048,0:p(NULL)44,8:p(NULL)43,1:clr:l(NULL)"q$a$q$","i
  65. 740 [153]"run:":[151]631,13:[151]632,13:[151]198,2:[128]
  66. 750 [144]
  67. 760 a$[178]"b.64 lists ii":[129]i[178]8[164]13:[160]2:[159]2,i,2:[160]2:[139]st[167]780
  68. 770 [160]15:[159]15,i,15,"r0:"[170]a$[170]"="[170]a$:[132]15,er:[160]15:[139]er[178]63[167]790
  69. 780 [130]:[153]"stop":[151]186,8:[128]
  70. 790 q$[178][199](34):[151]646,[194](53281)
  71. 800 [153]"p(NULL)49152,0:p(NULL)44,192:p(NULL)43,1:p(NULL)56,207:p(NULL)55,252:clr:l(NULL)"q$a$q$","i
  72. 810 [153]"run:":[151]631,13:[151]632,13:[151]198,2:[128]
  73. 60000 [153]"load":z$[178]" print#                                      ":[151]214,10:[153]
  74. 60010 [153]" listfrefrefrefrefrefrefrefrefrefrefrefrefrefrefrefrefrefrefrefrefrefrefrefrefrefrefrefrefrefrefrefrefrefrefrefrefrefre":[129]i[178]0[164]11:[153]z$:[130]
  75. 60020 [153]" pokeposposposposposposposposposposposposposposposposposposposposposposposposposposposposposposposposposposposposposposprint#"
  76. 60030 z$(0)[178]"len - 6 4   (NULL) right$ (NULL) (NULL) (NULL)"
  77. 60040 z$(2)[178]"by lenlinton (NULL)'(NULL)eill
  78. 60050 z$(4)="(c) 1997 by [202] & [198] [208]ublishing, [201]nc."
  79. 60060 z$(6)="[212]his program is not shareware
  80. 60070 z$(7)[178]"or in the public domain."
  81. 60080 z$(9)[178]"1-800-594-3370 or 1-318-221-8718
  82. 60090 poke214,12:print:fori=0to9:printtab(20-(len(z$(i))/2))""z$(i):next:return
  83.